-
<%
i = 1
k = 1
Do until DbRec.EOF Or i>ipp
'±â»ç ³»¿ë Ã߸®±â
file_id = DbRec("NEWSKEY")
xml_file_name = file_id & ".xml"
servicedate = DbRec("SVC_DATE")
' XML µ¥ÀÌÅÍ ÁÖ¼Ò
url = "http://sports.chosun.com/news/html/" & Left(servicedate,4) & "/" & Mid(servicedate,5,2) & "/" & Mid(servicedate,7,2) & "/" & xml_file_name
Set objXmlHttp = Server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
Set oDOM = Server.CreateObject("Microsoft.XMLDOM")
with oDOM
.async = False ' µ¿±â½Ä È£Ãâ
.setProperty "ServerHTTPRequest", True ' HTTP·Î XML µ¥ÀÌÅÍ °¡Á®¿È
.Load(url)
end with
Set Nodes = oDOM.getElementsByTagName("WebNewsLayoutML")
For each SubNodes in Nodes
photocount = SubNodes.getElementsByTagName("PhotoCount")(0).Text
CreateDate = SubNodes.getElementsByTagName("ModifyDate")(0).Text
If photocount <> 0 Then
ImgFilename = SubNodes.getElementsByTagName("ServerDataFileName")(0).Text
End If
WebText = SubNodes.getElementsByTagName("WebText")(0).Text
Next
ImgFilename = replace(ImgFilename, ".j", "_l.j")
Set Nodes = Nothing
Set oDOM = Nothing
CreateDate = replace(CreateDate, "T", " ")
CreateDate = Left(CreateDate, 16)
If photocount = 0 Then
%>
- <% Else %>
- &ServiceDate=<%=DbRec("SVC_DATE")%>"> <% End If %> <% strLine2 = "" DbRec.Movenext i = i + 1 Loop DbRec.Close Dbcon.Close Set DbRec = Nothing Set Dbcon = Nothing %>
<%
MyChoice = 10
Total_Block = int(TotPage / MyChoice)
If int(TotPage) Mod MyChoice = 0 Then
Total_Block = Total_Block - 1
End If
If Request("block") <> "" Then
NowBlock = Request("block")
Else
NowBlock = 0
End If
If TotPage > 0 Then
If Cint(NowBlock) > 0 Then
CurPage = (int(NowBlock * MyChoice) - (MyChoice - 1))
%>
ÀÌÀü
<%
Else
%>
<%
End If
%>
<%
If Cint(Total_Block) <> Cint(NowBlock) Then
For Gopage = 1 To MyChoice
If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
Else
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
End If
Next
Else
If (TotPage Mod MyChoice = 0) Then
ttt = MyChoice
Else
ttt = TotPage Mod MyChoice
End If
For Gopage = 1 To ttt
If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
Else
%>
<%=(int(NowBlock * MyChoice) + Gopage)%>
<%
End If
Next
End If
'´ÙÀ½ ºí·°ÀÇ Ã¹ÆäÀÌÁö ¼ö¸¦ °è»êÇÑ´Ù.
CurPage = (int(NowBlock * MyChoice) + Gopage)
If (Cint(Total_Block) > 0) and (Cint(NowBlock) < Cint(Total_Block)) Then
%>
<%
End If
End If
%>
´ÙÀ½